home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5970.txt < prev    next >
Text File  |  1994-03-01  |  3KB  |  57 lines
  1. 5 GOTO10010
  2. 10 DATAx[cmþ],0.000001x[mþ],X[mþ]=1e-6*x[cmþ],10,20
  3. 20 DATAx[cmþ],0.0610237x[inþ],X[inþ]=.0610237*x[cmþ],10,30
  4. 30 DATAx[cmþ],0.0000353147x[ftþ],X[ftþ]=3.53147E-5*x[cmþ],20,40
  5. 40 DATAx[cmþ],0.001x[l],X[l]=.001*x[cmþ],30,50
  6. 50 DATAx[cmþ],0.000264172x[gal(US)],X[gal(US)]=2.64172E-4*x[cmþ],40,60
  7. 60 DATAx[cmþ],0.000219968x[gal(UK)],X[gal(UK)]=2.19968E-4*x[cmþ],50,70
  8. 70 DATAx[mþ],1000000x[cmþ],X[cmþ]=1E6*x[mþ],60,80
  9. 80 DATAx[mþ],61023.7x[inþ],X[inþ]=61023.7*x[mþ],70,90
  10. 90 DATAx[mþ],35.3147x[ftþ],X[ftþ]=35.3147*x[mþ],80,100
  11. 100 DATAx[mþ],1000x[l],x[l]=1E3*x[mþ],90,110
  12. 110 DATAx[mþ],264.172x[gal(US)],X[gal(US)]=264.172*x[mþ],100,120
  13. 120 DATAx[mþ],219.968x[gal(UK)],X[gal(UK)]=219.968*x[mþ],110,130
  14. 130 DATAx[inþ],16.3871x[cmþ],X[cmþ]=16.3871*x[inþ],120,140
  15. 140 DATAx[inþ],0.0000163871x[mþ],X[mþ]=1.63871E-5*x[inþ],130,150
  16. 150 DATAx[inþ],0.000578704x[ftþ],X[ftþ]=.000578704*x[inþ],140,160
  17. 160 DATAx[inþ],0.0163871x[l],X[l]=.0163871*x[inþ],150,170
  18. 170 DATAx[inþ],0.00432900x[gal(US)],X[gal(US)]=.004329*x[inþ],160,180
  19. 180 DATAx[inþ],0.00360464x[gal(UK)],X[gal(UK)]=.00360464*x[inþ],170,190
  20. 190 DATAx[ftþ],28316.8x[cmþ],X[cmþ]=28316.8*x[ftþ],180,200
  21. 200 DATAx[ftþ],0.0283168x[mþ],X[mþ]=.0283168*x[ftþ],190,210
  22. 210 DATAx[ftþ],1728x[inþ],X[inþ]=1728*x[ftþ],200,220
  23. 220 DATAx[ftþ],28.3168x[l],X[l]=28.3168*x[ftþ],210,230
  24. 230 DATAx[ftþ],7.48052x[gal(US)],X[gal(US)]=7.48052*x[ftþ],220,240
  25. 240 DATAx[ftþ],6.22882x[gal(UK)],X[gal(UK)]=6.22882*x[ftþ],230,250
  26. 250 DATAx[l],1000x[cmþ],X[cmþ]=1E3*x[l],240,260
  27. 260 DATAx[l],0.001x[mþ],X[mþ]=.001*x[l],250,270
  28. 270 DATAx[l],61.0237x[inþ],X[inþ]=61.0237*x[l],260,280
  29. 280 DATAx[l],0.0353147x[ftþ],X[ftþ]=.0353147*x[l],270,290
  30. 290 DATAx[l],0.264172x[gal(US)],X[gal(US)]=.264172*x[l],280,300
  31. 300 DATAx[l],0.219968x[gal(UK)],X[gal(UK)]=.219968*x[l],290,300
  32. 310 DATAx[gal(US)],3785.41x[cmþ],X[cmþ]=3785.41*x[gal(US)],300,320
  33. 320 DATAx[gal(US)],0.00378541x[mþ],X[mþ]=.00378541*x[gal(US)],310,330
  34. 330 DATAx[gal(US)],231x[inþ],X[inþ]=231*x[gal(US)],320,340
  35. 340 DATAx[gal(US)],0.133681x[ftþ],X[ftþ]=.133681*x[gal(US)],330,350
  36. 350 DATAx[gal(US)],3.78541x[l],X[l]=3.78541*x[gal(US)],340,360
  37. 360 DATAx[gal(US)],0.832672x[gal(UK)],X[gal(UK)]=0.832672*x[gal(US)],350,370
  38. 370 DATAx[gal(UK)],4546.09x[cmþ],X[cmþ]=4546.09*x[gal(UK)],360,380
  39. 380 DATAx[gal(UK)],0.00454609x[mþ],X[mþ]=.00454609*x[gal(UK)],370,390
  40. 390 DATAx[gal(UK)],277.42x[inþ],X[inþ]=277.42*x[gal(UK)],380,400
  41. 400 DATAx[gal(UK)],0.160544x[ftþ],X[ftþ]=.160544*x[gal(UK)],390,410
  42. 410 DATAx[gal(UK)],4.54609x[l],X[l]=4.54609*x[gal(UK)],400,420
  43. 420 DATAx[gal(UK)],1.20095x[gal(US)],X[gal(US)]=1.20095*x[gal(UK)],410,420
  44. 10010 MODE8:DIM:x=10:y=300:r=x
  45. 10050 p$="Metric conversion (volume)"
  46. 10110 RESTORE(r)
  47. 10120 READm$,n$,s$,b,c
  48. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  49. 10140 CLS:PRINTp$;TAB(l);l$;m$;" - ";n$;:LOCATE0,0:LOCATE0,1
  50. 10150 z=ASC(INPUT$(1,@))
  51. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  52. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  53. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  54. 10200 IFz=31 ANDr<>c THENr=c:GOTO10110
  55. 10210 IFz=13 THENCALC$=s$:CALCJMP
  56. 10280 GOTO10150
  57.